Available online here.

dat = airquality
dat$Date = as.Date(paste(1973, dat$Month, dat$Day, sep = "-"))

p0 = plot_ly(dat, x = ~ Date, y = ~ Ozone, type = "bar")

p1 = p0 %>% layout(
  xaxis = list(
    rangeselector = list(
      buttons = list(
        list(
          count = 1
          , label = "1 mo"
          , step = "month"
          , stepmode = "backward"
        )
        , list(step = "all")
      )
    )
  )
)
p1
p1 %>% layout(
  xaxis = list(
    range = c(
      {
        dt = max(dat$Date)
        lubridate::month(dt) = lubridate::month(dt) - 1
        dt
      }
      , max(dat$Date)
    )
  )
)
IycgLS0tCiMnIHRpdGxlOiAicGxvdGx5IGlzc3VlICMxODM2OiAnU2V0IGRlZmF1bHQgYnV0dG9uIGluIHJhbmdlc2VsZWN0b3InIgojJyBhdXRob3I6ICJmZGV0c2NoIgojJyBvdXRwdXQ6CiMnICAgaHRtbF9ub3RlYm9vazoKIycgICAgIGNvZGVfZm9sZGluZzogc2hvdwojJyAgICAgdG9jOiB0cnVlCiMnICAgICB0b2NfZGVwdGg6IDIKIycgICAgIHRvY19mbG9hdDogdHJ1ZQojJyAgICAgY29sbGFwc2VkOiBmYWxzZQojJyAtLS0KIysgc2V0dXAsIGluY2x1ZGU9RkFMU0UKa25pdHI6Om9wdHNfY2h1bmtbWydzZXQnXV0oY29sbGFwc2U9RkFMU0UsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIHByb21wdD1GQUxTRSkKIysgbGlicywgZWNobz1GQUxTRQpsaWJyYXJ5KHBsb3RseSkKCiMnIEF2YWlsYWJsZSBvbmxpbmUgW2hlcmVdKGh0dHBzOi8vZ2l0aHViLmNvbS9yb3BlbnNjaS9wbG90bHkvaXNzdWVzLzE4MzYpLgoKZGF0ID0gYWlycXVhbGl0eQpkYXQkRGF0ZSA9IGFzLkRhdGUocGFzdGUoMTk3MywgZGF0JE1vbnRoLCBkYXQkRGF5LCBzZXAgPSAiLSIpKQoKcDAgPSBwbG90X2x5KGRhdCwgeCA9IH4gRGF0ZSwgeSA9IH4gT3pvbmUsIHR5cGUgPSAiYmFyIikKCnAxID0gcDAgJT4lIGxheW91dCgKICB4YXhpcyA9IGxpc3QoCiAgICByYW5nZXNlbGVjdG9yID0gbGlzdCgKICAgICAgYnV0dG9ucyA9IGxpc3QoCiAgICAgICAgbGlzdCgKICAgICAgICAgIGNvdW50ID0gMQogICAgICAgICAgLCBsYWJlbCA9ICIxIG1vIgogICAgICAgICAgLCBzdGVwID0gIm1vbnRoIgogICAgICAgICAgLCBzdGVwbW9kZSA9ICJiYWNrd2FyZCIKICAgICAgICApCiAgICAgICAgLCBsaXN0KHN0ZXAgPSAiYWxsIikKICAgICAgKQogICAgKQogICkKKQpwMQoKcDEgJT4lIGxheW91dCgKICB4YXhpcyA9IGxpc3QoCiAgICByYW5nZSA9IGMoCiAgICAgIHsKICAgICAgICBkdCA9IG1heChkYXQkRGF0ZSkKICAgICAgICBsdWJyaWRhdGU6Om1vbnRoKGR0KSA9IGx1YnJpZGF0ZTo6bW9udGgoZHQpIC0gMQogICAgICAgIGR0CiAgICAgIH0KICAgICAgLCBtYXgoZGF0JERhdGUpCiAgICApCiAgKQopCg==